#!/usr/bin/env perl

print("输入数据:");
$in=<STDIN>; #等待控制台输入数据
print("输入为:$in\n");




